home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / CHILDREN'S.STORY.bas < prev    next >
BASIC Source File  |  2012-02-16  |  21KB  |  831 lines
  1. 10  REM  **********************
  2. 12  REM  *
  3. 14  REM  *  A CHILDREN'S STORY
  4. 16  REM  *
  5. 18  REM  * (C) COPYRIGHT FEB. 1987
  6. 20  REM  *
  7. 22  REM  *  PHIL SHAPIRO
  8. 24  REM  *
  9. 26  REM  ************************
  10. 30  HOME 
  11. 31  FOR D = 1 TO 1000: NEXT D: SPEED= 60
  12. 32  VTAB 8: HTAB 9: PRINT "A  CHILDREN'S  STORY"
  13. 34  FOR D = 1 TO 800: NEXT D
  14. 36  VTAB 10: HTAB 14: PRINT "WRITTEN FOR"
  15. 38  FOR D = 1 TO 200: NEXT D
  16. 40  VTAB 12: HTAB 4: PRINT "THE CAPITAL CHILREN'S MUSEUM"
  17. 42  VTAB 16: HTAB 12: PRINT "BY PHIL SHAPIRO"
  18. 80  VTAB 22: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -": GET M$: HOME 
  19. 100  GOSUB 8000
  20. 110  GOSUB 20000
  21. 120  PRINT "HI"
  22. 130  GOSUB 15100: GOSUB 22000
  23. 140  PRINT "THERE,"
  24. 150  GOSUB 15200: GOSUB 24000
  25. 160  PRINT "BOYS"
  26. 170  GOSUB 15100: GOSUB 26000
  27. 180  PRINT "AND"
  28. 190  GOSUB 15100: GOSUB 28000
  29. 200  PRINT "GIRLS !"
  30. 210  GOSUB 15500: HOME : GOSUB 20000
  31. 215  GOSUB 15300
  32. 220  PRINT "ARE"
  33. 230  GOSUB 15100: GOSUB 22000
  34. 240  PRINT "YOU"
  35. 250  GOSUB 15100: GOSUB 24000
  36. 260  PRINT "HAVING"
  37. 270  GOSUB 15100: GOSUB 26000
  38. 280  PRINT "FUN"
  39. 290  GOSUB 15200: GOSUB 28000
  40. 300  PRINT "AT"
  41. 310  GOSUB 15100: GOSUB 30000
  42. 320  PRINT "THE"
  43. 330  GOSUB 15100: GOSUB 32000
  44. 340  PRINT "CAPITAL"
  45. 350  GOSUB 15100: GOSUB 34000
  46. 360  PRINT "CHILDREN'S"
  47. 370  GOSUB 15100: GOSUB 36000
  48. 380  PRINT "MUSEUM ?"
  49. 390  GOSUB 15500: HOME : GOSUB 20000
  50. 395  GOSUB 15300
  51. 400  PRINT "HAVE"
  52. 410  GOSUB 15100: GOSUB 22000
  53. 420  PRINT "YOU"
  54. 430  GOSUB 15100: GOSUB 24000
  55. 440  PRINT "BEEN"
  56. 450  GOSUB 15100: GOSUB 26000
  57. 460  PRINT "CAREFULLY"
  58. 470  GOSUB 15100: GOSUB 28000
  59. 480  PRINT "EXPLAINING"
  60. 490  GOSUB 15100: GOSUB 30000
  61. 500  PRINT "THINGS"
  62. 510  GOSUB 15100: GOSUB 32000
  63. 520  PRINT "TO"
  64. 530  GOSUB 15100: GOSUB 34000
  65. 540  PRINT "YOUR"
  66. 550  GOSUB 15100: GOSUB 36000
  67. 560  PRINT "PARENTS,"
  68. 570  GOSUB 15500: HOME : GOSUB 20000
  69. 575  GOSUB 15300
  70. 580  PRINT "SO"
  71. 590  GOSUB 15100: GOSUB 22000
  72. 600  PRINT "THAT"
  73. 610  GOSUB 15100: GOSUB 24000
  74. 620  PRINT "SOME"
  75. 630  GOSUB 15100: GOSUB 26000
  76. 640  PRINT "DAY"
  77. 650  GOSUB 15100: GOSUB 28000
  78. 660  PRINT "THEY'LL"
  79. 670  GOSUB 15100: GOSUB 30000
  80. 680  PRINT "BE"
  81. 690  GOSUB 15100: GOSUB 32000
  82. 700  PRINT "AS"
  83. 710  GOSUB 15100: GOSUB 34000
  84. 720  PRINT "SMART"
  85. 730  GOSUB 15100: GOSUB 36000
  86. 740  PRINT "AS"
  87. 750  GOSUB 15100: GOSUB 38000
  88. 760  PRINT "YOU ?"
  89. 770  GOSUB 15300: HOME : GOSUB 20000: GOSUB 15100
  90. 780  GOSUB 15200
  91. 790  PRINT "YOU"
  92. 800  GOSUB 15100: GOSUB 22000
  93. 810  PRINT "HAVE"
  94. 820  GOSUB 15100: GOSUB 24000
  95. 830  PRINT "TO"
  96. 840  GOSUB 15100: GOSUB 26000
  97. 850  PRINT "BE"
  98. 860  GOSUB 15100: GOSUB 28000
  99. 870  PRINT "PATIENT"
  100. 880  GOSUB 15100: GOSUB 30000
  101. 890  PRINT "WITH"
  102. 900  GOSUB 15100: GOSUB 32000
  103. 910  PRINT "PARENTS,"
  104. 920  GOSUB 15300: HOME : GOSUB 20000
  105. 930  PRINT "BECAUSE"
  106. 940  GOSUB 15100: GOSUB 22000
  107. 950  PRINT "THEY"
  108. 960  GOSUB 15100: GOSUB 24000
  109. 970  PRINT "CAN"
  110. 980  GOSUB 15100: GOSUB 26000
  111. 990  PRINT "GET"
  112. 1000  GOSUB 15100: GOSUB 28000
  113. 1010  PRINT "SO"
  114. 1020  GOSUB 15100: GOSUB 30000
  115. 1030  PRINT "EXCITED"
  116. 1040  GOSUB 15100: GOSUB 32000
  117. 1050  PRINT "HERE,"
  118. 1060  GOSUB 15300: HOME : GOSUB 20000
  119. 1070  PRINT "THAT"
  120. 1080  GOSUB 15100: GOSUB 22000
  121. 1090  PRINT "THEY'LL"
  122. 1100  GOSUB 15100: GOSUB 24000
  123. 1110  PRINT "WANT"
  124. 1120  GOSUB 15100: GOSUB 26000
  125. 1130  PRINT "TO"
  126. 1140  GOSUB 15100: GOSUB 28000
  127. 1150  PRINT "STAY"
  128. 1160  GOSUB 15100: GOSUB 30000
  129. 1170  PRINT "ALL"
  130. 1180  GOSUB 15100: GOSUB 32000
  131. 1190  PRINT "DAY."
  132. 1200  GOSUB 15300: HOME : GOSUB 20000
  133. 1210  GOSUB 15200
  134. 1220  PRINT "KNOW"
  135. 1230  GOSUB 15100: GOSUB 22000
  136. 1240  PRINT "WHAT"
  137. 1250  GOSUB 15100: GOSUB 24000
  138. 1260  PRINT "I"
  139. 1270  GOSUB 15100: GOSUB 26000
  140. 1280  PRINT "MEAN ? ?"
  141. 1290  GOSUB 15300: HOME : GOSUB 20000
  142. 1300  GOSUB 15300
  143. 1310  PRINT "WELL,"
  144. 1320  GOSUB 15200: GOSUB 22000
  145. 1330  PRINT "LET"
  146. 1340  GOSUB 15100: GOSUB 24000
  147. 1350  PRINT "ME"
  148. 1360  GOSUB 15100: GOSUB 26000
  149. 1370  PRINT "TELL"
  150. 1380  GOSUB 15100: GOSUB 28000
  151. 1390  PRINT "YOU"
  152. 1400  GOSUB 15100: GOSUB 30000
  153. 1410  PRINT "A"
  154. 1420  GOSUB 15100: GOSUB 32000
  155. 1430  PRINT "STORY."
  156. 1440  GOSUB 15400: HOME : GOSUB 20000
  157. 1450  GOSUB 15300
  158. 1460  PRINT "THIS"
  159. 1470  GOSUB 15100: GOSUB 22000
  160. 1480  PRINT "STORY"
  161. 1490  GOSUB 15100: GOSUB 24000
  162. 1500  PRINT "IS"
  163. 1510  GOSUB 15100: GOSUB 26000
  164. 1520  PRINT "ACTUALLY"
  165. 1530  GOSUB 15100: GOSUB 28000
  166. 1540  PRINT "ABOUT"
  167. 1550  GOSUB 15100: GOSUB 30000
  168. 1560  PRINT "ME."
  169. 1570  GOSUB 15400: HOME : GOSUB 20000
  170. 1580  GOSUB 15300
  171. 1590  PRINT "I"
  172. 1600  GOSUB 15100: GOSUB 22000
  173. 1610  PRINT "USED"
  174. 1620  GOSUB 15100: GOSUB 24000
  175. 1630  PRINT "TO"
  176. 1640  GOSUB 15100: GOSUB 26000
  177. 1650  PRINT "BE"
  178. 1660  GOSUB 15100: GOSUB 28000
  179. 1670  PRINT "A"
  180. 1680  GOSUB 15100: GOSUB 30000
  181. 1690  PRINT "REGULAR"
  182. 1700  GOSUB 15100: GOSUB 32000
  183. 1710  PRINT "STORY,"
  184. 1720  GOSUB 15200: HOME : GOSUB 20000
  185. 1730  GOSUB 15100
  186. 1740  PRINT "GOING"
  187. 1750  GOSUB 15100: GOSUB 22000
  188. 1760  PRINT "FROM"
  189. 1770  GOSUB 15100: GOSUB 24000
  190. 1780  PRINT "LEFT"
  191. 1790  GOSUB 15100: GOSUB 26000
  192. 1800  PRINT "TO"
  193. 1810  GOSUB 15100: GOSUB 28000
  194. 1820  PRINT "RIGHT."
  195. 1830  GOSUB 15300: HOME : GOSUB 20000
  196. 1840  GOSUB 15300
  197. 1850  PRINT "BUT"
  198. 1860  GOSUB 15100: GOSUB 22000
  199. 1870  PRINT "MY"
  200. 1880  GOSUB 15100: GOSUB 24000
  201. 1890  PRINT "AUTHOR"
  202. 1900  GOSUB 15100: GOSUB 26000
  203. 1910  PRINT "DECIDED"
  204. 1920  GOSUB 15100: GOSUB 28000
  205. 1930  PRINT "TO"
  206. 1940  GOSUB 15100: GOSUB 30000
  207. 1950  PRINT "SET"
  208. 1960  GOSUB 15100: GOSUB 32000
  209. 1970  PRINT "ME"
  210. 1980  GOSUB 15100: GOSUB 34000
  211. 1990  PRINT "FREE."
  212. 2000  GOSUB 15400: HOME : GOSUB 20000
  213. 2010  GOSUB 15300
  214. 2020  PRINT "NOW"
  215. 2030  GOSUB 15100: GOSUB 22000
  216. 2040  PRINT "I"
  217. 2050  GOSUB 15100: GOSUB 24000
  218. 2060  PRINT "PRETTY"
  219. 2080  GOSUB 15100: GOSUB 26000
  220. 2090  PRINT "MUCH"
  221. 2100  GOSUB 15100: GOSUB 28000
  222. 2110  PRINT "GO"
  223. 2120  GOSUB 15100: GOSUB 30000
  224. 2130  PRINT "WHEREVER"
  225. 2140  GOSUB 15100: GOSUB 32000
  226. 2150  PRINT "I"
  227. 2160  GOSUB 15100: GOSUB 34000
  228. 2170  PRINT "WANT."
  229. 2180  GOSUB 15300: HOME : GOSUB 20000
  230. 2190  GOSUB 15300
  231. 2200  PRINT "NOT"
  232. 2210  GOSUB 15100: GOSUB 22000
  233. 2220  PRINT "EVEN"
  234. 2230  GOSUB 15100: GOSUB 24000
  235. 2240  PRINT "MY"
  236. 2250  GOSUB 15100: GOSUB 26000
  237. 2260  PRINT "AUTHOR"
  238. 2270  GOSUB 15100: GOSUB 28000
  239. 2280  PRINT "KNOWS"
  240. 2290  GOSUB 15100: GOSUB 30000
  241. 2300  PRINT "WHERE"
  242. 2310  GOSUB 15200: HOME : GOSUB 20000
  243. 2315  GOSUB 15100
  244. 2320  PRINT "I'M"
  245. 2330  GOSUB 15100: GOSUB 22000
  246. 2340  PRINT "GOING"
  247. 2390  GOSUB 15100: GOSUB 28000
  248. 2400  PRINT "TO"
  249. 2410  GOSUB 15100: GOSUB 30000
  250. 2420  PRINT "SHOW"
  251. 2430  GOSUB 15100: GOSUB 32000
  252. 2440  PRINT "UP"
  253. 2450  GOSUB 15100: GOSUB 34000
  254. 2460  PRINT "NEXT !"
  255. 2470  GOSUB 15400: HOME : GOSUB 20000
  256. 2480  GOSUB 15300
  257. 2490  PRINT "AT"
  258. 2500  GOSUB 15100: GOSUB 22000
  259. 2510  PRINT "FIRST"
  260. 2520  GOSUB 15100: GOSUB 24000
  261. 2530  PRINT "IT"
  262. 2540  GOSUB 15100: GOSUB 26000
  263. 2550  PRINT "SEEMED"
  264. 2560  GOSUB 15100: GOSUB 28000
  265. 2570  PRINT "STRANGE,"
  266. 2580  GOSUB 15300: HOME : GOSUB 20000
  267. 2590  GOSUB 15100
  268. 2600  PRINT "AND"
  269. 2610  GOSUB 15100: GOSUB 22000
  270. 2620  PRINT "I"
  271. 2630  GOSUB 15100: GOSUB 24000
  272. 2640  PRINT "WASN'T"
  273. 2650  GOSUB 15100: GOSUB 26000
  274. 2660  PRINT "SURE"
  275. 2670  GOSUB 15100: GOSUB 28000
  276. 2680  PRINT "IF"
  277. 2690  GOSUB 15100: GOSUB 30000
  278. 2700  PRINT "I"
  279. 2710  GOSUB 15100: GOSUB 32000
  280. 2720  PRINT "WAS"
  281. 2730  GOSUB 15100: GOSUB 34000
  282. 2740  PRINT "GOING"
  283. 2750  GOSUB 15300: HOME : GOSUB 20000
  284. 2760  GOSUB 15100
  285. 2770  PRINT "TO"
  286. 2780  GOSUB 15100: GOSUB 22000
  287. 2790  PRINT "LIKE"
  288. 2800  GOSUB 15100: GOSUB 24000
  289. 2810  PRINT "BEING"
  290. 2820  GOSUB 15100: GOSUB 26000
  291. 2830  PRINT "SET"
  292. 2840  GOSUB 15100: GOSUB 28000
  293. 2850  PRINT "FREE."
  294. 2860  GOSUB 15500: HOME : GOSUB 20000
  295. 2870  GOSUB 15300
  296. 2880  PRINT "BUT"
  297. 2890  GOSUB 15100: GOSUB 22000
  298. 2900  PRINT "YOU"
  299. 2910  GOSUB 15100: GOSUB 24000
  300. 2920  PRINT "KNOW"
  301. 2930  GOSUB 15100: GOSUB 26000
  302. 2940  PRINT "WHAT ?"
  303. 2950  GOSUB 15400: HOME : GOSUB 20000
  304. 2960  GOSUB 15300
  305. 2970  PRINT "I"
  306. 2980  GOSUB 15100: GOSUB 22000
  307. 2990  PRINT "KIND"
  308. 3000  GOSUB 15100: GOSUB 24000
  309. 3010  PRINT "OF"
  310. 3020  GOSUB 15100: GOSUB 26000
  311. 3030  PRINT "LIKE"
  312. 3040  GOSUB 15100: GOSUB 28000
  313. 3050  PRINT "IT"
  314. 3060  GOSUB 15100: GOSUB 30000
  315. 3070  PRINT "NOW !"
  316. 3080  GOSUB 15500: HOME : GOSUB 20000
  317. 3090  GOSUB 15300
  318. 3100  PRINT "AND"
  319. 3110  GOSUB 15100: GOSUB 22000
  320. 3120  PRINT "EVEN"
  321. 3130  GOSUB 15100: GOSUB 24000
  322. 3140  PRINT "IF"
  323. 3150  GOSUB 15100: GOSUB 26000
  324. 3160  PRINT "YOU"
  325. 3170  GOSUB 15100: GOSUB 28000
  326. 3180  PRINT "ASKED"
  327. 3190  GOSUB 15100: GOSUB 30000
  328. 3200  PRINT "ME"
  329. 3210  GOSUB 15100: GOSUB 32000
  330. 3220  PRINT "NICELY"
  331. 3230  GOSUB 15300: HOME : GOSUB 20000
  332. 3240  GOSUB 15100
  333. 3250  PRINT "TO"
  334. 3260  GOSUB 15100: GOSUB 22000
  335. 3270  PRINT "GO"
  336. 3280  GOSUB 15100: GOSUB 24000
  337. 3290  PRINT "BACK"
  338. 3300  GOSUB 15100: GOSUB 26000
  339. 3310  PRINT "TO"
  340. 3320  GOSUB 15100: GOSUB 28000
  341. 3330  PRINT "THE"
  342. 3340  GOSUB 15100: GOSUB 30000
  343. 3350  PRINT "OLD"
  344. 3360  GOSUB 15100: GOSUB 32000
  345. 3370  PRINT "FASHIONED"
  346. 3380  GOSUB 15100: GOSUB 34000
  347. 3390  PRINT "WAY,"
  348. 3400  GOSUB 15400: HOME : GOSUB 20000
  349. 3410  PRINT "I"
  350. 3420  GOSUB 15100: GOSUB 22000
  351. 3430  PRINT "THINK"
  352. 3440  GOSUB 15100: GOSUB 24000
  353. 3450  PRINT "I"
  354. 3460  GOSUB 15100: GOSUB 26000
  355. 3470  PRINT "WOULD"
  356. 3480  GOSUB 15100: GOSUB 28000
  357. 3490  PRINT "POLITELY"
  358. 3500  GOSUB 15100: GOSUB 30000
  359. 3510  PRINT "SAY"
  360. 3520  GOSUB 15100: GOSUB 32000
  361. 3530  PRINT "'NO'."
  362. 3540  GOSUB 15500: HOME : GOSUB 20000
  363. 3560  GOSUB 15200
  364. 3570  PRINT "BUT"
  365. 3580  GOSUB 15100: GOSUB 22000
  366. 3590  PRINT "WHAT"
  367. 3600  GOSUB 15100: GOSUB 24000
  368. 3610  PRINT "REALLY"
  369. 3620  GOSUB 15100: GOSUB 26000
  370. 3630  PRINT "INTERESTS"
  371. 3640  GOSUB 15100: GOSUB 28000
  372. 3650  PRINT "ME"
  373. 3660  GOSUB 15100: GOSUB 30000
  374. 3670  PRINT "IS"
  375. 3680  GOSUB 15200: HOME : GOSUB 20000
  376. 3690  GOSUB 15100
  377. 3700  PRINT "HOW"
  378. 3710  GOSUB 15100: GOSUB 22000
  379. 3720  FLASH 
  380. 3730  PRINT "YOU"
  381. 3740  NORMAL 
  382. 3750  GOSUB 15100: GOSUB 24000
  383. 3760  PRINT "FEEL"
  384. 3770  GOSUB 15200: GOSUB 26000
  385. 3780  PRINT "ABOUT"
  386. 3790  GOSUB 15100: GOSUB 28000
  387. 3800  PRINT "READING"
  388. 3810  GOSUB 15100: GOSUB 30000
  389. 3820  PRINT "A"
  390. 3830  GOSUB 15100: GOSUB 32000
  391. 3840  PRINT "STORY"
  392. 3850  GOSUB 15100: GOSUB 34000
  393. 3860  PRINT "THAT"
  394. 3870  GOSUB 15300: HOME : GOSUB 20000
  395. 3880  GOSUB 15100
  396. 3890  PRINT "JUST"
  397. 3900  GOSUB 15100: GOSUB 22000
  398. 3910  PRINT "DOESN'T"
  399. 3920  GOSUB 15100: GOSUB 24000
  400. 3930  PRINT "SIT"
  401. 3940  GOSUB 15100: GOSUB 26000
  402. 3950  PRINT "STILL."
  403. 3960  GOSUB 15400: HOME : GOSUB 20000
  404. 3970  GOSUB 15200
  405. 3980  PRINT "IS"
  406. 3990  GOSUB 15100: GOSUB 22000
  407. 4000  PRINT "IT"
  408. 4010  GOSUB 15100: GOSUB 24000
  409. 4020  PRINT "AS"
  410. 4030  GOSUB 15100: GOSUB 26000
  411. 4040  PRINT "FUN"
  412. 4050  GOSUB 15100: GOSUB 28000
  413. 4060  PRINT "FOR"
  414. 4070  GOSUB 15100: GOSUB 30000
  415. 4080  PRINT "YOU"
  416. 4090  GOSUB 15100: GOSUB 32000
  417. 4100  PRINT "AS"
  418. 4110  GOSUB 15100: GOSUB 34000
  419. 4120  PRINT "IT"
  420. 4130  GOSUB 15100: GOSUB 36000
  421. 4140  PRINT "IS"
  422. 4150  GOSUB 15100: GOSUB 38000
  423. 4160  PRINT "FOR"
  424. 4170  GOSUB 15100: GOSUB 40000
  425. 4180  PRINT "ME ?"
  426. 4190  GOSUB 15500: HOME : GOSUB 20000
  427. 4200  GOSUB 15200
  428. 4210  PRINT "MAYBE"
  429. 4220  GOSUB 15100: GOSUB 22000
  430. 4230  PRINT "I'M"
  431. 4240  GOSUB 15100: GOSUB 24000
  432. 4250  PRINT "GOING"
  433. 4260  GOSUB 15100: GOSUB 26000
  434. 4270  PRINT "A"
  435. 4280  GOSUB 15100: GOSUB 28000
  436. 4290  PRINT "BIT"
  437. 4300  GOSUB 15100: GOSUB 30000
  438. 4310  PRINT "TOO"
  439. 4320  GOSUB 15100: GOSUB 32000
  440. 4330  PRINT "FAST ?"
  441. 4340  GOSUB 15400: HOME : GOSUB 20000
  442. 4350  GOSUB 15300
  443. 4360  PRINT "MAYBE"
  444. 4370  GOSUB 15100: GOSUB 22000
  445. 4380  PRINT "I'M"
  446. 4390  GOSUB 15100: GOSUB 24000
  447. 4400  PRINT "GOING"
  448. 4410  GOSUB 15100: GOSUB 26000
  449. 4420  PRINT "A"
  450. 4430  GOSUB 15100: GOSUB 28000
  451. 4450  PRINT "BIT"
  452. 4460  GOSUB 15100: GOSUB 30000
  453. 4470  PRINT "TOO"
  454. 4480  GOSUB 15100: GOSUB 32000
  455. 4490  PRINT "SLOW ?"
  456. 4500  GOSUB 15500: HOME : GOSUB 20000
  457. 4510  GOSUB 15300
  458. 4520  PRINT "BUT"
  459. 4530  GOSUB 15100: GOSUB 22000
  460. 4540  PRINT "DO"
  461. 4550  GOSUB 15100: GOSUB 24000
  462. 4560  PRINT "YOU"
  463. 4570  GOSUB 15100: GOSUB 26000
  464. 4580  PRINT "KNOW"
  465. 4590  GOSUB 15100: GOSUB 28000
  466. 4600  PRINT "WHAT ?"
  467. 4610  GOSUB 15400: HOME : GOSUB 20000
  468. 4620  GOSUB 15200
  469. 4630  PRINT "I"
  470. 4640  GOSUB 15100: GOSUB 22000
  471. 4650  PRINT "COULD"
  472. 4670  GOSUB 15100: GOSUB 24000
  473. 4680  PRINT "EASILY"
  474. 4690  GOSUB 15100: GOSUB 26000
  475. 4700  PRINT "BE"
  476. 4710  GOSUB 15100: GOSUB 28000
  477. 4720  PRINT "MADE"
  478. 4730  GOSUB 15100: GOSUB 30000
  479. 4740  PRINT "TO"
  480. 4750  GOSUB 15100: GOSUB 32000
  481. 4760  PRINT "GO"
  482. 4770  GOSUB 15100: GOSUB 34000
  483. 4780  PRINT "FASTER"
  484. 4790  GOSUB 15100: GOSUB 36000
  485. 4800  PRINT "OR"
  486. 4810  GOSUB 15100: GOSUB 38000
  487. 4820  PRINT "SLOWER."
  488. 4830  GOSUB 15500: HOME : GOSUB 20000
  489. 4840  GOSUB 15300
  490. 4850  PRINT "ALL"
  491. 4860  GOSUB 15100: GOSUB 22000
  492. 4870  PRINT "THAT"
  493. 4880  GOSUB 15100: GOSUB 24000
  494. 4890  PRINT "HAS"
  495. 4900  GOSUB 15100: GOSUB 26000
  496. 4910  PRINT "TO"
  497. 4920  GOSUB 15100: GOSUB 28000
  498. 4930  PRINT "BE"
  499. 4940  GOSUB 15100: GOSUB 30000
  500. 4950  PRINT "DONE,"
  501. 4960  GOSUB 15300: HOME : GOSUB 20000
  502. 4970  GOSUB 15100
  503. 4980  PRINT "IS"
  504. 4990  GOSUB 15100: GOSUB 22000
  505. 5000  PRINT "TO"
  506. 5010  GOSUB 15100: GOSUB 24000
  507. 5020  PRINT "CHANGE"
  508. 5030  GOSUB 15100: GOSUB 26000
  509. 5040  PRINT "A"
  510. 5050  GOSUB 15100: GOSUB 28000
  511. 5060  PRINT "FEW"
  512. 5070  GOSUB 15100: GOSUB 30000
  513. 5080  PRINT "LINES"
  514. 5090  GOSUB 15100: GOSUB 32000
  515. 5100  PRINT "IN"
  516. 5110  GOSUB 15100: GOSUB 34000
  517. 5120  PRINT "MY"
  518. 5130  GOSUB 15100: GOSUB 36000
  519. 5140  PRINT "PROGAM."
  520. 5150  GOSUB 15400: HOME : GOSUB 20000
  521. 5160  GOSUB 15200
  522. 5170  PRINT "THAT'S"
  523. 5180  GOSUB 15100: GOSUB 22000
  524. 5190  PRINT "THE"
  525. 5200  GOSUB 15100: GOSUB 24000
  526. 5210  PRINT "NEAT"
  527. 5220  GOSUB 15100: GOSUB 26000
  528. 5230  PRINT "THING"
  529. 5240  GOSUB 15100: GOSUB 28000
  530. 5250  PRINT "ABOUT"
  531. 5260  GOSUB 15100: GOSUB 30000
  532. 5270  PRINT "COMPUTERS."
  533. 5280  GOSUB 15400: HOME : GOSUB 20000
  534. 5290  PRINT "YOU"
  535. 5300  GOSUB 15100: GOSUB 22000
  536. 5310  PRINT "CAN"
  537. 5320  GOSUB 15100: GOSUB 24000
  538. 5330  PRINT "MAKE"
  539. 5340  GOSUB 15100: GOSUB 26000
  540. 5350  PRINT "THEM"
  541. 5360  GOSUB 15100: GOSUB 28000
  542. 5370  PRINT "DO"
  543. 5380  GOSUB 15100: GOSUB 30000
  544. 5390  PRINT "EXACTLY"
  545. 5400  GOSUB 15100: GOSUB 32000
  546. 5410  PRINT "WHAT"
  547. 5420  GOSUB 15100: GOSUB 34000
  548. 5430  PRINT "YOU"
  549. 5440  GOSUB 15100: GOSUB 36000
  550. 5450  PRINT "WANT."
  551. 5460  GOSUB 15500: HOME : GOSUB 20000
  552. 5470  PRINT "MY"
  553. 5480  GOSUB 15100: GOSUB 22000
  554. 5490  PRINT "AUTHOR"
  555. 5500  GOSUB 15100: GOSUB 24000
  556. 5510  PRINT "TELLS"
  557. 5520  GOSUB 15100: GOSUB 26000
  558. 5530  PRINT "ME"
  559. 5540  GOSUB 15100: GOSUB 28000
  560. 5550  PRINT "THAT"
  561. 5560  GOSUB 15100: GOSUB 30000
  562. 5570  PRINT "HE"
  563. 5580  GOSUB 15100: GOSUB 32000
  564. 5590  PRINT "JUST"
  565. 5600  GOSUB 15300: HOME : GOSUB 20000
  566. 5610  GOSUB 15100
  567. 5620  PRINT "TUCKED"
  568. 5630  GOSUB 15100: GOSUB 22000
  569. 5640  PRINT "ALL"
  570. 5650  GOSUB 15100: GOSUB 24000
  571. 5660  PRINT "OF"
  572. 5670  GOSUB 15100: GOSUB 26000
  573. 5680  PRINT "MY"
  574. 5690  GOSUB 15100: GOSUB 28000
  575. 5700  PRINT "WORDS"
  576. 5710  GOSUB 15300: HOME : GOSUB 20000
  577. 5720  PRINT "INTO"
  578. 5730  GOSUB 15100: GOSUB 22000
  579. 5740  PRINT "A"
  580. 5750  GOSUB 15100: GOSUB 24000
  581. 5760  PRINT "SIMPLE"
  582. 5770  GOSUB 15100: GOSUB 26000
  583. 5780  PRINT "BASIC"
  584. 5790  GOSUB 15100: GOSUB 28000
  585. 5800  PRINT "PROGRAM."
  586. 5810  GOSUB 15500: HOME : GOSUB 20000
  587. 5820  GOSUB 15200
  588. 5830  PRINT "I"
  589. 5840  GOSUB 15100: GOSUB 22000
  590. 5850  PRINT "GUESS"
  591. 5860  GOSUB 15100: GOSUB 24000
  592. 5870  PRINT "THE"
  593. 5880  GOSUB 15100: GOSUB 26000
  594. 5890  PRINT "COMPUTER"
  595. 5900  GOSUB 15100: GOSUB 28000
  596. 5910  PRINT "OPENS"
  597. 5920  GOSUB 15100: GOSUB 30000
  598. 5930  PRINT "UP"
  599. 5940  GOSUB 15400: HOME : GOSUB 20000
  600. 5950  GOSUB 15100
  601. 5960  PRINT "WHOLE"
  602. 5970  GOSUB 15100: GOSUB 22000
  603. 5980  PRINT "NEW"
  604. 5990  GOSUB 15100: GOSUB 24000
  605. 6000  PRINT "WAYS"
  606. 6010  GOSUB 15100: GOSUB 26000
  607. 6020  PRINT "OF"
  608. 6030  GOSUB 15100: GOSUB 28000
  609. 6040  PRINT "COMMUNICATING."
  610. 6050  GOSUB 15500: HOME : GOSUB 20000
  611. 6060  GOSUB 15200
  612. 6070  PRINT "WELL,"
  613. 6080  GOSUB 15100: GOSUB 22000
  614. 6090  PRINT "IT'S"
  615. 6100  GOSUB 15100: GOSUB 24000
  616. 6110  PRINT "BEEN"
  617. 6120  GOSUB 15100: GOSUB 26000
  618. 6130  PRINT "A"
  619. 6140  GOSUB 15100: GOSUB 28000
  620. 6150  PRINT "LONG"
  621. 6160  GOSUB 15100: GOSUB 30000
  622. 6170  PRINT "DAY"
  623. 6180  GOSUB 15100: GOSUB 32000
  624. 6190  PRINT "FOR"
  625. 6200  GOSUB 15100: GOSUB 34000
  626. 6210  PRINT "ME."
  627. 6220  GOSUB 15400: HOME : GOSUB 20000
  628. 6230  GOSUB 15300
  629. 6240  PRINT "I"
  630. 6250  GOSUB 15100: GOSUB 22000
  631. 6260  PRINT "THINK"
  632. 6270  GOSUB 15100: GOSUB 24000
  633. 6280  PRINT "I'M"
  634. 6290  GOSUB 15100: GOSUB 26000
  635. 6300  PRINT "GOING"
  636. 6310  GOSUB 15100: GOSUB 28000
  637. 6320  PRINT "TO"
  638. 6330  GOSUB 15100: GOSUB 30000
  639. 6340  PRINT "TAKE"
  640. 6350  GOSUB 15100: GOSUB 32000
  641. 6360  PRINT "A"
  642. 6370  GOSUB 15100: GOSUB 34000
  643. 6380  PRINT "LITTLE"
  644. 6390  GOSUB 15100: GOSUB 36000
  645. 6400  PRINT "REST,"
  646. 6410  GOSUB 15300: HOME : GOSUB 20000
  647. 6420  PRINT "BEFORE"
  648. 6430  GOSUB 15100: GOSUB 22000
  649. 6440  PRINT "STARTING"
  650. 6450  GOSUB 15100: GOSUB 24000
  651. 6460  PRINT "ALL"
  652. 6470  GOSUB 15100: GOSUB 26000
  653. 6480  PRINT "OVER"
  654. 6490  GOSUB 15100: GOSUB 28000
  655. 6500  PRINT "FROM"
  656. 6510  GOSUB 15100: GOSUB 30000
  657. 6520  PRINT "THE"
  658. 6530  GOSUB 15100: GOSUB 32000
  659. 6540  PRINT "BEGINNING."
  660. 6550  GOSUB 15500: HOME : GOSUB 20000
  661. 6560  PRINT "SO"
  662. 6570  GOSUB 15100: GOSUB 22000
  663. 6580  PRINT "LONG"
  664. 6590  GOSUB 15100: GOSUB 24000
  665. 6600  PRINT "FOR"
  666. 6610  GOSUB 15100: GOSUB 26000
  667. 6620  PRINT "NOW !"
  668. 6630  GOSUB 15300: HOME : GOSUB 20000
  669. 6640  PRINT "HOPE"
  670. 6650  GOSUB 15100: GOSUB 22000
  671. 6660  PRINT "TO"
  672. 6670  GOSUB 15100: GOSUB 24000
  673. 6680  PRINT "SEE"
  674. 6690  GOSUB 15100: GOSUB 26000
  675. 6700  PRINT "YOU"
  676. 6710  GOSUB 15100: GOSUB 28000
  677. 6720  PRINT "AGAIN"
  678. 6730  GOSUB 15100: GOSUB 30000
  679. 6740  PRINT "SOON !"
  680. 6750  FOR D = 1 TO 5000: NEXT D
  681. 6755  HOME 
  682. 6760  FOR D = 1 TO 2000: NEXT D
  683. 6770  VTAB 12: PRINT "(C) COPYRIGHT FEB. 1987    PHIL SHAPIRO"
  684. 6780  FOR D = 1 TO 8000: NEXT D
  685. 6790  HOME 
  686. 6800  FOR D = 1 TO 8000: NEXT D
  687. 6810  GOTO 90
  688. 6820  END 
  689. 8000  HOME : FOR D = 1 TO 1000: NEXT D
  690. 8010  VTAB 10: PRINT "PLEASE CHOOSE A SPEED OF DISPLAY."
  691. 8020  FOR D = 1 TO 500: NEXT D
  692. 8030  VTAB 12: PRINT "(TYPE IN ONE OF THE NUMBERS.)
  693. 8040  VTAB 16: HTAB 20: PRINT "1. SLOW"
  694. 8050  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  695. 8060  VTAB 20: HTAB 20: PRINT "3. FAST"
  696. 8070  VTAB 22: GET CH
  697. 8080  IF CH = 1  THEN  SPEED= 0: HOME : FOR D = 1 TO 1500: NEXT D: RETURN 
  698. 8090  IF CH = 2  THEN  SPEED= 40: HOME : FOR D = 1 TO 1500: NEXT D: RETURN 
  699. 8100  IF CH = 3  THEN  SPEED= 100: HOME : FOR D = 1 TO 1500: NEXT D: RETURN 
  700. 8110  GOTO 8070
  701. 15000  REM 
  702. 15010  REM 
  703. 15020  REM 
  704. 15030  REM 
  705. 15040  REM 
  706. 15050  REM 
  707. 15060  REM 
  708. 15070  REM 
  709. 15080  REM 
  710. 15090  REM 
  711. 15092  REM 
  712. 15093  REM 
  713. 15100  FOR D = 1 TO 100: NEXT D
  714. 15150  RETURN 
  715. 15200  FOR D = 1 TO 200: NEXT D
  716. 15250  RETURN 
  717. 15300  FOR D = 1 TO 300: NEXT D
  718. 15350  RETURN 
  719. 15400  FOR D = 1 TO 400: NEXT D
  720. 15450  RETURN 
  721. 15500  FOR D = 1 TO 500: NEXT D
  722. 15550  RETURN 
  723. 15600  FOR D = 1 TO 600: NEXT D
  724. 15650  RETURN 
  725. 15700  FOR D = 1 TO 700: NEXT D
  726. 15750  RETURN 
  727. 15800  FOR D = 1 TO 800: NEXT D
  728. 15850  RETURN 
  729. 15900  FOR D = 1 TO 900: NEXT D
  730. 15950  RETURN 
  731. 16500  FOR D = 1 TO 1500: NEXT D
  732. 16550  RETURN 
  733. 20000  FOR D = 1 TO 10: NEXT D
  734. 20010 X =  INT((30 * RND(1)) +1)
  735. 20020 Y =  INT((24 * RND(1)) +1)
  736. 20030  HTAB X: VTAB Y
  737. 20040  RETURN 
  738. 22000 Q =  INT((24 * RND(1)) +1)
  739. 22010  IF Q = Y  THEN 22000
  740. 22015 X = ((30 * RND(1)) +1)
  741. 22020  HTAB X: VTAB Q
  742. 22030  RETURN 
  743. 24000 R =  INT((24 * RND(1)) +1)
  744. 24005 X =  INT((32 * RND(1)) +1)
  745. 24010  IF R = Q  THEN 24000
  746. 24020  IF R = Y  THEN 24000
  747. 24030 X = ((30 * RND(1)) +1)
  748. 24040  HTAB X: VTAB R
  749. 24050  RETURN 
  750. 26000 S =  INT((24 * RND(1)) +1)
  751. 26010  IF S = R  THEN 26000
  752. 26020  IF S = Q  THEN 26000
  753. 26030  IF S = Y  THEN 26000
  754. 26040 X = ((27 * RND(1)) +1)
  755. 26050  HTAB X: VTAB S
  756. 26060  RETURN 
  757. 28000 T =  INT((24 * RND(1)) +1)
  758. 28010  IF T = S  THEN 28000
  759. 28020  IF T = R  THEN 28000
  760. 28030  IF T = Q  THEN 28000
  761. 28040  IF T = Y  THEN 28000
  762. 28050 X = ((25 * RND(1)) +1)
  763. 28060  HTAB X: VTAB T
  764. 28070  RETURN 
  765. 30000 U =  INT((24 * RND(1)) +1)
  766. 30010  IF U = T  THEN 30000
  767. 30020  IF U = S  THEN 30000
  768. 30030  IF U = R  THEN 30000
  769. 30040  IF U = Q  THEN 30000
  770. 30050  IF U = Y  THEN 30000
  771. 30060 X = ((30 * RND(1)) +1)
  772. 30070  HTAB X: VTAB U
  773. 30080  RETURN 
  774. 32000 V =  INT((24 * RND(1)) +1)
  775. 32010  IF V = U  THEN 32000
  776. 32020  IF V = T  THEN 32000
  777. 32030  IF V = S  THEN 32000
  778. 32040  IF V = R  THEN 32000
  779. 32050  IF V = Q  THEN 32000
  780. 32060  IF V = Y  THEN 32000
  781. 32070 X = ((28 * RND(1)) +1)
  782. 32080  HTAB X: VTAB V
  783. 32090  RETURN 
  784. 34000 W =  INT((24 * RND(1)) +1)
  785. 34010 X = ((30 * RND(1)) +1)
  786. 34020  IF W = V  THEN 34000
  787. 34030  IF W = T  THEN 34000
  788. 34040  IF W = S  THEN 34000
  789. 34050  IF W = R  THEN 34000
  790. 34060  IF W = Q  THEN 34000
  791. 34070  IF W = Y  THEN 34000
  792. 34080  HTAB X: VTAB W
  793. 34090  RETURN 
  794. 36000 Z =  INT((24 * RND(1)) +1)
  795. 36010 X = ((30 * RND(1)) +1)
  796. 36020  IF Z = W  THEN 36000
  797. 36030  IF Z = U  THEN 36000
  798. 36040  IF Z = T  THEN 36000
  799. 36050  IF Z = S  THEN 36000
  800. 36060  IF Z = R  THEN 36000
  801. 36070  IF Z = Q  THEN 36000
  802. 36080  IF Z = Y  THEN 36000
  803. 36090  HTAB X: VTAB Z
  804. 36100  RETURN 
  805. 38000 A =  INT((24 * RND(1)) +1)
  806. 38010 X = ((30 * RND(1)) +1)
  807. 38020  IF A = Z  THEN 38000
  808. 38030  IF A = W  THEN 38000
  809. 38040  IF A = V  THEN 38000
  810. 38050  IF A = U  THEN 38000
  811. 38060  IF A = T  THEN 38000
  812. 38070  IF A = S  THEN 38000
  813. 38080  IF A = R  THEN 38000
  814. 38090  IF A = Q  THEN 38000
  815. 38100  IF A = Y  THEN 38000
  816. 38110  HTAB X: VTAB A
  817. 38120  RETURN 
  818. 40000 B =  INT((24 * RND(1)) +1)
  819. 40010 X = ((30 * RND(1)) +1)
  820. 40020  IF B = A GOTO 40000
  821. 40030  IF B = Z  THEN 40000
  822. 40040  IF B = W  THEN 40000
  823. 40050  IF B = V  THEN 40000
  824. 40060  IF B = U  THEN 40000
  825. 40070  IF B = T  THEN 40000
  826. 40080  IF B = S  THEN 40000
  827. 40090  IF B = R  THEN 40000
  828. 40100  IF B = Q  THEN 40000
  829. 40110  IF B = Y  THEN 40000
  830. 40120  HTAB X: VTAB B
  831. 40130  RETURN